home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / versa11.arc / DISC.CMD next >
OS/2 REXX Batch file  |  1987-05-23  |  337b  |  31 lines
  1. TRAN"+++"
  2. SET PARI EVEN
  3. SET DATA 7
  4. PAUS 1
  5. TRAN"ATZ!"
  6. WAIT"OK"
  7. TRAN"ATH0!"
  8. WAIT"OK"
  9. PAUS 1
  10. CLEA
  11. LOCA 11,14
  12. MESS"BBS has been disconnected.  Start VERSA now <Y/N>?"
  13. LABEL1:
  14. LOCA 11,65
  15. GET S0 1
  16. SWIT S0
  17. CASE"Y"
  18. EXEC"VERSA.CMD"
  19. ENDC
  20. CASE"N"
  21. CLEA
  22. EXIT
  23. ENDC
  24. DEFA
  25. MESS"^G"
  26. LOCA 11,65
  27. MESS" "
  28. GOTO LABEL1
  29. ENDC
  30. ENDS
  31.